Dim i, ListSize as Integer

ListSize = UBound(Names)

Do Until Names(i) = LookingFor
  If i = ListSize then
    Exit Do
  End If
  i += 1
Loop
